home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / The World of Computer Software.iso / dfl333.zip / INSTALL.POW < prev    next >
Text File  |  1992-10-25  |  5KB  |  87 lines
  1. rem **************************************************************************
  2. rem *                                                                        *
  3. rem *                           Declare variables                            *
  4. rem *                                                                        *
  5. rem **************************************************************************
  6.  
  7. intvar  titlewin                                     Title window handle
  8. intvar  mainmenu                                     Main menu window handle
  9.  
  10. intvar  key                                          Hold key from read_menu
  11. intvar  menusel                                      Menu sel from read_menu
  12.  
  13. strvar  srcdir                                       Source dir
  14.  
  15. rem **************************************************************************
  16. rem *                                                                        *
  17. rem *                             Define windows                             *
  18. rem *                                                                        *
  19. rem **************************************************************************
  20.  
  21. mainmenu = define_win 24 6 28 8 1 yes ' ' black white black  white
  22.  
  23. titlewin = define_win  27 3 26 2 1 yes ' ' black white blue white
  24. win_cputs   titlewin 1 " Welcome to DFL "
  25.  
  26. rem **************************************************************************
  27. rem *                                                                        *
  28. rem *                          Define menu options                           *
  29. rem *                                                                        *
  30. rem *  Window handle. Window column & row. Hotkey (0 if none).               *
  31. rem *                                                                        *
  32. rem *                                                                        *
  33. rem **************************************************************************
  34.  
  35. define_menusel mainmenu 1 1 0 ltwhite black blue white " Read BETA.DOC        "
  36. define_menusel mainmenu 1 2 0 ltwhite black blue white " Read INSTALL.DOC     "
  37. define_menusel mainmenu 1 3 0 ltwhite black blue white " Read Install Script  "
  38. define_menusel mainmenu 1 4 0 ltwhite black blue white " Exit                 "
  39.  
  40. rem **************************************************************************
  41. rem *                                                                        *
  42. rem *                             Begin script                               *
  43. rem *                                                                        *
  44. rem **************************************************************************
  45.  
  46. srcdir = getstartdir                                    Get home dir
  47. chdir srcdir                                            Make sure we're there
  48.  
  49. curtain
  50. show_win titlewin                                       Show title window
  51. pause
  52. pause
  53.  
  54. rem **************************************************************************
  55. rem *                                                                        *
  56. rem *                             Read main menu                             *
  57. rem *                                                                        *
  58. rem **************************************************************************
  59.  
  60. label menuloop                                          Used for GOTO,GOSUB
  61.  
  62. key = read_menu mainmenu menusel                 This performs the whole menu
  63.  
  64. if key == ESC goto done_intro                           Exit intro
  65. if key <> 13  goto menuloop                             Wait for enter key
  66.  
  67. if menusel == 0 view_file "beta.doc"                    View beta.doc
  68. if menusel == 1 view_file "install.doc"                 View install.doc
  69. if menusel == 2 view_file "install.pow"                 View install script
  70. if menusel == 3 goto      done_intro                    Exit intro
  71.  
  72. goto menuloop                                           Back to menu
  73.  
  74. rem **************************************************************************
  75. rem *                                                                        *
  76. rem *                                 Exit                                   *
  77. rem *                                                                        *
  78. rem **************************************************************************
  79.  
  80. label done_intro
  81.  
  82. hide_win mainmenu
  83. hide_win titlewin                                        Remove windows
  84. clrscr
  85. cursorxy 0 0
  86. exit 0                                                   Exit
  87.